Option Explicit
Sub D_Sample013()
    Dim myRng1 As Range
    Dim myRng2 As Range
    Set myRng1 = Range("A1:A4")			'ƻsӷxsd
    Set myRng2 = Range("D1")       			'ƻsؼxs
    'ǳƨ즹
    myRng1.Copy
    myRng2.Select
    myRng2.Parent.Pictures.Paste Link:=True 
    Set myRng1 = Nothing				'
    Set myRng2 = Nothing
    Application.CutCopyMode = False 
End Sub
